This library was written by Fookes Software to serve as a demonstration of the varied tasks that can be performed by the Editor Clipbook. You are free to customize it any way you like!
You can get more information about each Clip, and how they should be used, by double-clicking on their colored section title.
If you have a useful Clipbook library that you would like to share with other NoteTab users, please submit it to: <clipbook@fookes.com>. Your library will then be added to the Clipbook repository on the web.
H=";"
H=";Clipbook Manager"
Below, you will find a brief explanation about each Clip under this topic.
1) Switch Library:
Provides an alternative way to switch to another Clipbook library, and optionally hide the list.
2) Install Libraries:
Use this Clip to install libraries stored in other directories or disks. For example, libraries downloaded from the Internet or copied to a diskette from another computer. The Clip will copy the chosen libraries to NoteTab's Libraries subdirectory.
3) Remove Libraries:
You might have some libraries you created for temporary purposes, or that you downloaded from the Internet to try out but don't want to keep. This Clip makes it easy to remove those libraries. It sends them to the Windows recycle bin.
H="Switch Library"
;Store list of library names in the variable LibraryList
^!Clip FillLibraryList
;Show Clip wizard
^!Set %ShowClipbook%=^?{(T=C)Show Clipbook window?==_Yes|No}; %LibraryName%=^?{(H=10)Choose a library==_^%LibraryList%}
;Show or hide Clipbook window based on user's choice
^!ShowClipbook ^%ShowClipbook%
;Open chosen library. Remove first space character added by FillLibraryList Clip
^!LoadLibrary ^$StrDelete("^%LibraryName%";1;1)$
^!IfError Next ELSE Skip
^!Prompt Error: could not open "^%LibraryName%"
H="Install Libraries"
;Clear variable in case it has been used previously
^!ClearVariable %LibraryList%
;Get value of last install directory from INI file, if available
;Add one to the value contained in the variable Index
^!Inc %Index%
;End the Clip if the Index number is greater than the Count number
^!If ^%Index% > ^%Count% EndLoop
;Copy the library file name corresponding to the current index value to a variable. The content of the array's indexed variable is used here
^!Set %LibraryName%=^%LibraryNames^%Index%%
;Check if chosen library really exists
^!IfFileExist "^%LibraryName%" Next ELSE NotFound
;Check if library already exists in Libraries directory
^!IfFileExist "^$GetLibraryPath$^$GetFileName("^%LibraryName%")$" Next ELSE CopyLibrary
;Prompt user if library already exists and is going to be overwritten
^!Skip "^$GetFileName("^%LibraryName%")$" is already installed. Overwrite it?
;Jump back to the start of the loop if user answers no
^!Goto StartLoop
:CopyLibrary
;Copy library into Libraries directory
^!CopyFile "^%LibraryName%" "^$GetLibraryPath$"
;Append library name without path and extension to variable. Name is preceded with a space in case it starts with a special character. This space will have to be removed later
;Store list of library names in the variable LibraryList
^!Clip FillLibraryList
;Show Clip wizard
^!SetArray %LibraryNames%=^?{(H=10;T=A)Choose libraries to remove=^%LibraryList%}
;Copy the value representing the number of items into the Count variable. The variable at index 0 indicates the number of items in the array
^!Set %Count%=^%LibraryNames0%
;If no files were chose, leave the loop
^!If ^%Count% = 0 Exit
;Initialize the Index variable to 0
^!Set %Index%=0
;Beginning of loop
:StartLoop
;Add one to the value contained in the variable Index
^!Inc %Index%
;End the Clip if the Index number is greater than the Count number
^!If ^%Index% > ^%Count% EndLoop
;Copy the library file name corresponding to the current index value to a variable. The content of the array's indexed variable is used here. Remove first space character added by FillLibraryList Clip
Below, you will find a brief explanation about each Clip under this topic.
1) Paste Internet acronym:
When you activate this Clip, a Clip wizard will popup with a list of sentences that correspond to common Internet acronyms. Just double click on the item that you want to use and the corresponding acronym will be pasted in your document at the cursor position.
2) Underline title:
First place the cursor on the line you would like to underline, then activate the Clip. The Clip wizard will then let you choose the type of character to use for producing the underline text.
3) Compare two files:
The Clip uses the DOS command "fc" to compare the differences between two disk files. Although you can choose any two files you want to compare, NoteTab will offer the current document name by default for the first file. If necessary, NoteTab saves a temporary copy of the current document before starting the comparison program. Note that the Clip converts long file names to DOS short names so that they can be accepted by the "fc" utility.
4) Enable AutoCorrect mode:
When you activate this Clip, it will open the AutoCorrect library and then hide the Clipbook window. Auto-replace mode will be enabled and your typing will be checked for matching items in the library. If a typo is found, it will automatically be replaced with the correct spelling.
H="Paste Internet acronym"
^?[(H=8)Choose acronym to paste==_By the Way^=BTW|For What it's Worth^=FWIW|For Your Information^=FYI|I Am Not A Lawyer^=IANAL|In Any Event^=IAE|In My Considered Opinion^=IMCO|In My Humble Opinion^=IMHO|In My Opinion^=IMO|In Other Words^=IOW|Just One of Those Things^=JOOTT|Laughing Out Loud^=LOL|No Reply Necessary^=NRN|On the Other Hand^=OTOH|Real Soon Now [Which May be a Long Time Coming]^=RSN|Rolling on Floor Laughing^=ROFL|Rolling on the Floor Laughing^=ROTFL|Still in the Dark^=SITD|Thanks in Advance^=TIA|There Ain't No Such Thing as a Free Lunch^=TANSTAAFL|Three Letter Acronym^=TLA|Tongue in Cheek^=TIC|With Respect To^=WRT]
H="Underline title"
;Underlines with the chosen character the line at the cursor
;Ensure input focus returns to document
^!FocusDoc
;Place the cursor at the end of the line
^!Jump LINE_END
;Determine the line length
^!Set %TitleLength%=^$Calc(^$GetColScreen$-1)$
;Cancel procedure if the line is blank
^!If ^%TitleLength% < 1 Exit
;Insert line break followed by sequence of underline characters
;The Clip uses the DOS command "fc" to compare the differences between two disk files. If necessary, NoteTab saves a temporary copy of the current document before starting the comparison program
;Define the delimiter for the checkbox field
^!SetListDelimiter " "
;Prompt for file names and option settings used to control the comparisor
^!Set %File1%="^?{(T=O)Compare file=^**}"; %File2%="^?{(T=O)With file=^$GetPath("^**")$}"; %Options%=^?{(H=5;T=A)Switches=_Compares files as ASCII text^=/L|Ignore character case^=/C|Display only first+last lines^=/A|_Do not expand tabs to spaces^=/T|Display line numbers on an ASCII comparison^=/N}
;End the procedure if no file is specified
^!IfTrue ^$IsEmpty("^%File1%")$ End
;Set output file name in a variable
^!Set %OutputFile%=^$GetName("^%File1%")$.dif
;Convert long file names to DOS short names
^!Set %File1%=^$GetShort("^%File1%")$
^!Set %File2%=^$GetShort("^%File2%")$
;Copy the file path in a variable
^!Set %Path%=^$GetPath("^%File1%")$
;If both files being compared are in the same directory, remove the path part from the second file name
^!IfSame "^%Path%" "^$GetPath("^%File2%")$" Next ELSE Skip
^!Info Warning: the DOS command line about to be executed is very long; it might not work. In case of failure, try to shorten the path/file names of the documents you want to compare.
:Execute
;Delete the output file if it already exists (created by earlier comparison)
^!DeleteFile ^%OutputFile%
;Set the default path
^!ChDir ^%Path%
;Execute the fc command with all parameters
^!CmdShow Minimize
^!DOS ^%Command%
;Wait until the command has finished executing
^!Wait
;Copy output name to variable
^!Set %OutputFile%=^%Path%^%OutputFile%
;Open the output file if it exists or show error message
^!IfFileExist ^%OutputFile% Next ELSE Error
^!Open ^%OutputFile%
^!Goto End
:Error
^!Info File comparison failed
H="Enable AutoCorrect mode"
;Opens the AutoCorrect library in the Editor Clipbook
^!LoadLibrary AutoCorrect.clb
;Hides the Clipbook window
^!ShowClipbook False
H=";"
H=";Without Clipboard"
The Clips in this section provide typical Clipboard functions without actually using it. The cut and copy procedures actually copy the text selection to a temporary variable in the Clipbook.
1) Copy/paste:
Performs copy and paste operations without using the Windows Clipboard. If text is selected, NoteTab assumes you want to perform a Copy operation. If no text is selected but a Copy or Cut operation has been performed beforehand, Notetab will paste the copied text into the document.
2) Cut/paste:
Performs cut and paste operations without using the Windows Clipboard. If text is selected, NoteTab assumes you want to perform a Cut operation. If no text is selected but a Copy or Cut operation has been performed beforehand, Notetab will paste the copied text into the document.
3) Duplicate line:
Duplicates the line at the cursor.
H="Copy/paste"
;Performs copy and paste operations without using the Windows Clipboard
;If text is selected, NoteTab assumes you want to perform a Copy operation. If no text is selected but a Copy or Cut operation has been performed beforehand, Notetab will paste the copied text into the document
^!FocusDoc
^!If ^$GetSelSize$ = 0 Next ELSE CopyText
^!IfTrue ^$IsEmpty("^%KeepText%")$ End
^!SetPasteIndent Off
^!InsertCode ^%KeepText%
^!GoTo End
:CopyText
^!SetCode %KeepText%=^$GetSelection$
^!Jump Select_End
H="Cut/paste"
;Performs cut and paste operations without using the Windows Clipboard
;If text is selected, NoteTab assumes you want to perform a Cut operation. If no text is selected but a Copy or Cut operation has been performed beforehand, Notetab will paste the copied text into the document
^!FocusDoc
^!If ^$GetSelSize$ = 0 Next ELSE CutText
^!IfTrue ^$IsEmpty("^%KeepText%")$ End
^!SetPasteIndent Off
^!InsertCode ^%KeepText%
^!GoTo End
:CutText
^!SetCode %KeepText%=^$GetSelection$
^!InsertText ^%EMPTY%
H="Duplicate line"
;Duplicates the line at the cursor
^!FocusDoc
;Start by selecting the current line (or word-wrapped line)
^!Select Paragraph
;End the procedure if the line is empty
^!If ^$GetSelSize$ = 0 End
;Copy the selection into a variable
^!Set %ParaText%=^$GetSelection$
;Place cursor at end of selection and remove highlight
^!Jump Select_End
;Check if the paragraph ends with a line break; if not, add one to the front of our copy in the variable
This section offers several useful commands to tidy or generate web pages, or convert HTML documents to plain text.
1) Images to HTML:
This Clip will create a web page based on all the images that match a specified criteria. You can then easily preview all the images in your favorite browser. Before the web page is created, a Clip wizard is displayed so you can choose which directory it should search, what type of images it should include in the page, and the sorting order. The resulting web page displays all the matching images, together with their file name, the picture's dimensions in pixels (width and height), and the file size. You can then put this page together with your pictures on a web server.
2) Tidy HTML code:
This Clip will change the format of your HTML tags and clean up the code in all open HTML documents. The internal NoteTab commands let you choose between upper/lower case tags, or the new XHTML format. If you have installed the HTML Tidy program, you can also change the indenting and column wrap. Furthermore, HTML Tidy can correct minor errors in your code.
3) Convert HTML to text:
This Clip will convert all the HTML documents open in NoteTab into plain text files. A Clip wizard gives you the choice to keep the links in tags or not, and to automatically save the resulting text files or not.
4) Convert Text to HTML:
This Clip will convert all the non-HTML documents open in NoteTab into web pages. A Clip wizard gives you the choice to automatically save the resulting HTML files or not.
5) Convert "Mailto" form:
This Clip will convert output generated by "Mailto" forms into plain text. If text is initially selected in the document, the conversion will only be applied to that part, otherwise the whole document is processed.
6) Outline document to HTML:
Converts the current outline document into a web page with table of contents and links. If the current document is not an outline, the Clip will offer to demonstrate the feature on the Readme.otl document, which is part of the NoteTab package.
7) Outline topics to HTML:
This Clip will convert each outline topic into an individual web page. You can choose whether to keep the created HTML files open in NoteTab or have them closed automatically. If the current document is not an outline, the Clip will offer to demonstrate the feature on the Readme.otl document, which is part of the NoteTab package.
8) Select between tags:
This Clip will select all the text between the type of tag specified by the user. The search starts from the cursor position or the beginning of the text, depending on the users choice.
9) Insert HRef Link:
Opens the Clip wizard so you can choose which web page and description you want to use in the link. The Clip then inserts the HRef tag into your document at the cursor position.
10) Insert Img Link:
Opens the Clip wizard so you can choose which image and ALT description you want to use in the link. The Clip then inserts the Img tag, complete with the image size attributes into your document at the cursor position.
H="Images to HTML"
;This Clip will create a web page based on all the images that match the specified criteria. You can then easily preview all the images in your favorite browser
;Prompt user with Clip wizard to determine which image files should be listed and how the page should be built
^!Set %PageTitle%=^?{Page title=Images}; %FileName%=^?{Web page file name (no path or extension)=Images}; %Directory%=^?{(T=D)Directory to search}; %Specs%=^?{File Specs=*.gif;*.png;*.jpg}; %Sorting%=^?{(T=C)File sorting==Unsorted|_Name|Type|Date|Size}; %Reverse%=^?{(T=C)Descending order==Yes^=Rev|_No^=}
;End procedure if the user canceled the Clip wizard
^!IfCancel Exit
^!SetPasteIndent Off
;Set variable for sorting parameter
^!Set %Sorting%=^%Reverse%^%Sorting%
;Close the output file if there is one open in NoteTab
^!Close "^%Directory%^%FileName%.htm"
;Create a new document with specified name for web page
;Get next matching image name and go back to start of loop
^!Set %ImageFullName%=^$GetFileNext$
^!GoTo StartLoop
:ExitLoop
;Close the file-find variable to restore system resources
^!CloseFileFind
;Insert line break after last image tag
^!InsertText ^P
;Insert web page closing tags
^!InsertHtml <HR>^P<CENTER>^P<I>This HTML document was produced with a popular Text and HTML editor called <B><A HREF="http://www.notetab.com/">^$GetProgName$</A></B></I>^P</CENTER>^P<HR>^P<SMALL>Page created on <B>^$GetDate(mmmm dd, yyyy)$</B></SMALL>^P</BODY>^P</HTML>^P
;Place cursor back to top of page
^!Jump Text_Start
;Offer user the choice to display the newly created web page in browser or end Clip
^!Goto ^?{What would you like to do now?==_View page in main browser^=Next|View page in second browser^=SecondBrowser|No preview^=End}
^!ToolBar View in Browser
^!Goto End
:SecondBrowser
^!ToolBar View Other Browser
H="Tidy HTML code"
;Tidy code in all open HTML documents. This Clip can use the HTML Tidy program, if available
^!Continue This Clip will tidy the code in all open HTML documents. Continue?
;Save converted document if users wants this done automatically
^!IfFalse ^%SaveChanges% UpdateIndex
^!IfFalse ^$IsModified$ UpdateIndex
^!Save
:UpdateIndex
;Substract one from the Index value
^!Dec %Index%
;Go back to start of loop if there are still documents left to check
^!If ^%Index% > 0 LoopStart
H="Convert HTML to text"
;Converts all open HTML documents into plain text files
^!Continue This Clip will convert all open HTML documents to plain text files. Continue?
;Copy the document count in a variable
^!Set %Index%=^$GetDocCount$
;Check every open document through the following loop
:LoopStart
;Activate the specified document (starts with the last one in the tab bar)
^!SetDocIndex ^%Index%
;Skip the conversion process if the document does not have an HTML extension or is a Clipbook library
^!IfFalse ^$IsHTMLDoc$ SkipConversion
^!IfTrue ^$IsClipDoc$ SkipConversion
;Strip tags from current document
^!Toolbar Strip ^?[Keep links in tags?==_Yes^=Tags|No^=HTML]
^!IfError SkipConversion
;Place the cursor at the start of the document
^!Jump Text_Start
;Save converted document if users wants this done automatically
^!IfFalse ^?[Automatically save converted documents?==_Yes|No] Skip
^!Save As ^##
:SkipConversion
;Substract one from the Index value
^!Dec %Index%
;Go back to start of loop if there are still documents left to check
^!If ^%Index% > 0 LoopStart
H="Convert Text to HTML"
;Converts all open non-HTML documents to HTML
^!Continue This Clip will convert all open non-HTML documents to HTML documents. Continue?
;Copy the document count in a variable
^!Set %Index%=^$GetDocCount$
;Check every open document through the following loop
:LoopStart
;Activate the specified document (starts with the last one in the tab bar)
^!SetDocIndex ^%Index%
;Skip the conversion process if the document has an HTML extension or is a Clipbook library
^!IfTrue ^$IsHtmlDoc$ SkipConversion
^!IfTrue ^$IsClipDoc$ SkipConversion
;Convert text to HTML format
^!Toolbar Document to HTML
^!IfError SkipConversion
;Place the cursor at the start of the document
^!Jump Text_Start
;Save converted document if users wants this done automatically
^!IfFalse ^?[Automatically save converted documents?==_Yes|No] Skip
^!Save As ^##
:SkipConversion
;Substract one from the Index value
^!Dec %Index%
;Go back to start of loop if there are still documents left to check
^!If ^%Index% > 0 LoopStart
H="Convert "Mailto" form"
;Converts output text created by "Mailto" forms. If text is selected in the document, the conversion will only be applied to that part, otherwise the whole document is processed
^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ = 0 End
^!SetPasteIndent Off
^!InsertText ^$StrUrlDecode("^$GetSelection$")$
H="Outline document to HTML"
;Converts the current outline document into a web page
;If the current document is an outline, start the procedure. Otherwise ask whether to demonstrate the feature on the Readme.otl document, which is part of the NoteTab package
^!IfTrue ^$IsOutlineDoc$ Start ELSE Next
;Check if the Readme.otl document exists. If not, skip demonstration procedure and show error message
^!IfFileExist ^$GetAppPath$Readme.Otl Next ELSE ShowErrorMsg
^!Continue The current document is not an outline. Would you like to see a demonstration with the Readme.Otl file?
;Open the Readme.otl document
^!Open ^$GetAppPath$Readme.Otl
;If there was an error while trying to open it, show message and end procedure
^!IfError Next ELSE Start
^!Prompt Error: could not open "^$GetAppPath$Readme.Otl"
:Start
;Convert the outline file to HTML format
^!Toolbar Document to HTML
;Place the cursor at the start of the document
^!Jump Text_Start
;Offer user the choice to display the newly created web page in browser or end Clip
^!Goto ^?{What would you like to do now?==_View page in main browser^=Next|View page in second browser^=SecondBrowser|No preview^=End}
^!ToolBar View in Browser
^!Goto End
:SecondBrowser
^!ToolBar View Other Browser
^!Goto End
:ShowErrorMsg
^!Prompt Error: the current document is not an outline
H="Outline topics to HTML"
;This Clip will convert each outline topic into an individual web page. The user can choose whether to keep the created files open in NoteTab or have them closed automatically
;If the current document is an outline, start the procedure. Otherwise ask whether to demonstrate the feature on the Readme.otl document, which is part of the NoteTab package
^!IfTrue ^$IsOutlineDoc$ Start ELSE Next
;Check if the Readme.otl document exists. If not, skip demonstration procedure and show error message
^!IfFileExist ^$GetAppPath$Readme.Otl Next ELSE ShowErrorMsg
^!Continue The current document is not an outline. Would you like to see a demonstration with the Readme.Otl file?
;Open the Readme.otl document
^!Open ^$GetAppPath$Readme.Otl
;If there was an error while trying to open it, show message and end procedure
^!IfError Next ELSE Start
^!Prompt Error: could not open "^$GetAppPath$Readme.Otl"
:Start
;Copy the name of the outline document to a variable
^!Set %OutlineName%=^$GetName("^##")$
;Copy user's choice for keeping the web pages open or not
^!Set %KeepOpen%=^?[Keep new HTML documents open in editor?==_Yes|No]
;Store the current document index in a variable
^!Set %DocIndex%=^$GetDocIndex$
;Set the TopicIndex variable to 0
^!Set %TopicIndex%=0
;Store the topic count in a variable
^!Set %TopicCount%=^$GetTopicCount$
;Change the name format for newly created documents to the outline file name with the .html extension
;Add one to the value contained in the TopicIndex variable
^!Inc %TopicIndex%
;End the Clip if the TopicIndex number is greater than the number of topics in the outline document
^!If ^%TopicIndex% > ^%TopicCount% EndClip
;Activate the outline document if it is not already the current one
^!SetDocIndex ^%DocIndex%
;Move to the topic defined in the TopicIndex variable
^!SetTopicIndex ^%TopicIndex%
;Copy the content of the topic to the Clipboard
^!SetClipboard ^$GetText$
;Paste the content of the Clipboard into a new document
^!ToolBar Paste New
;Convert the text in the new document to the HTML format
^!Toolbar Document to HTML
;Place the cursor at the start of the text in the new HTML document
^!Jump Text_Start
;Save the new HTML document without prompting the user for the name
^!Save AS ^##
;Close the HTML document if the user chose to do so
^!IfTrue ^%KeepOpen% Skip
^!Close
;Go back to the start of the loop
^!GoTo LoopStart
:ShowErrorMsg
^!Prompt Error: the current document is not an outline
^!GoTo End
:EndClip
;Restore the original new document name format
^!SetNameFormat ^%KeepNameFormat%
H="Select between tags"
;This Clip will select all the text between the type of tag specified by the user. The search starts from the cursor position or the beginning of the text
^!Set %Range%=^?[(2)Search from...==Start of text^=W|Cursor position forwards^=|_Cursor position backwards^=B]
;If search direction is different from backwards, jump to the instruction following the SearchForwards label
;Place cursor at end of selection and remove highlight
^!Jump Select_End
;Find end of opening tag
^!Find ">" IS
^!IfError End
^!Goto SetStartPosition
:SearchForwards
;Search forwards for the opening tag
^!Find "<^?[Tag]" CIS^%Range%
;End procedure if the searched tag is not found
^!IfError End
;Place cursor at end of selection and remove highlight
^!Jump Select_End
;Find end of opening tag
^!Find ">" S
^!IfError End
:SetStartPosition
;Ensure input focus is in the document
^!FocusDoc
;Place cursor at end of selection and remove highlight
^!Jump Select_End
;Store cursor position in a variable
^!Set %Start%=^$GetRow$:^$GetCol$
;Search for the closing tag
^!Find "</^?[Tag]>" IS
;End the procedure if it is not found
^!IfError End
;Place cursor at start of selection and remove highlight
^!Jump Select_Start
;Store cursor position in a variable
^!Set %End%=^$GetRow$:^$GetCol$
;Move the cursor back to the first saved position (after the opening tag)
^!SetCursor ^%Start%
;Extend the selection to the second saved position (in front of the closing tag)
^!SelectTo ^%End%
H=";"
H=";Conversions"
This section offers a series of Clips that let you easily convert between the most common units. A Clip wizard will prompt you for the value to convert and will then display the result in another window.
H="Fahrenheit -> Centigrade"
^!Prompt ^?[Temperature in Fahrenheit]░F = ^$Calc(((^?[Temperature in Fahrenheit])-32)*(5/9))$░C
H="Centigrade -> Fahrenheit"
^!Prompt ^?[Temperature in Centigrade]░C = ^$Calc((^?[Temperature in Centigrade])*(9/5)+32)$░F
H=";----"
H="Inches -> Centimetres"
^!Prompt ^?[Length in inches] inches = ^$Calc(^?[Length in inches]*2.5400)$ cm
H="Centimetres -> Inches"
^!Prompt ^?[Length in centimetres] cm = ^$Calc(^?[Length in centimetres]/2.5400)$ inches
H="Miles -> Kilometres"
^!Prompt ^?[Distance in miles] miles = ^$Calc(^?[Distance in miles]/0.6214)$ kilometres
H="Kilometres -> Miles"
^!Prompt ^?[Distance in kilometres] kilometres = ^$Calc(^?[Distance in kilometres]*0.6214)$ miles
H=";----"
H="Pounds -> Kilograms"
^!Prompt ^?[Weight in pounds] pounds = ^$Calc(^?[Weight in pounds]*0.4536)$ kg
H="Kilograms -> Pounds"
^!Prompt ^?[Weight in kilograms] kg = ^$Calc(^?[Weight in kilograms]/0.4536)$ pounds
H=";"
H=";Mathematics"
This section offers a series of Clips that demonstrate how NoteTab can calculate mathematical formulae. A Clip wizard will prompt you for the necessary values and will then display the result in another window.
H="Your ideal weight?"
;Lorentz Formula (thanks Christophe!)
^!Prompt Ideal weight = ^$Calc((^?[Height (cm)]-100)-((^?[Height (cm)]-150)/^?[Sex=_Male^=4|Female^=2]))$ Kg
H="Mortgage rate"
;Clip developed by Edward S. Wozniak
^!Prompt Mortgage rate = ^$Calc(^?[Mortgage amount]*(^?[Interest rate (%)]/1200)*(1+^?[Interest rate (%)]/1200)^(^?[Length of the loan (in years)]*12)/((1+^?[Interest rate (%)]/1200)^(^?[Length of the loan (in years)]*12)-1))$ per month
H="Future value of deposit"
;Clip developed by Edward S. Wozniak
^!Prompt Final Balance = ^$Calc(^?[Fixed Monthly Deposit]*((1+^?[Interest Rate (%)]/1200)^(^?[Total Deposit Periods (in years)]*12)-1)/(^?[interest Rate (%)]/1200))$
H=";"
H=";Windows Utilities"
This section offers Clips that launch some of the commonly used Windows utilities. Just double click on the Clip to start the utility.
H="Calculator"
^!FocusApp Calculator
^!IfError Next Else End
^!Shell calc.exe
H="Character Map"
^!Shell charmap.exe
H="Explorer"
^!FocusApp Exploring*
^!IfError Next Else End
^!Shell explorer.exe
H=";"
H=";UNICODE files"
This section offers Clips that let you easily read and write text in UNICODE format.
H="Import UNICODE text"
;Prompts user to choose an UNICODE file and reads text into NoteTab
;Saves current document or text selection as a new file in EBCDIC format
^!Export "^?[(T=S;F="EBCDIC files (*.cbl;*.cob;*.cpy;*.ddl;*.bms)|*.cbl;*.cob;*.cpy;*.ddl;*.bms")Name for new EBCDIC file]" EBCDIC ^?[Text=SELECTION|_ALL] LRECL=^?[Line width (LRECL)=_Variable Width^=0|80|132|133]
H=";"
H=";UUEncode/UUDecode"
This section offers Clips that let you process UUEncoded data.
H="UUEncode file"
;Converts the chosen file to UUEncoded format and saves the result to a new file with the extension .uue
^!UUEncode "^?[(T=O)File to UUEncode]"
^!IfError ShowError
^!Prompt UUEncode successful
^!Goto End
:ShowError
^!Prompt An error has occured during the encoding process
H="UUDecode file"
;Converts the chosen UUEncoded file to its native format and saves the result to a new file with its original name
^!UUDecode "^?[(T=O;F="UUEncoded files (*.uue)|*.uue")File to UUDecode]"
^!IfError ShowError
^!Prompt UUDecode successful
^!Goto End
:ShowError
^!Prompt An error has occured during the decoding process
H="UUEncode text"
;Converts the text in the current document to UUEncoded format and saves it to a new document
^!SetCode %Text%=^$GetText$
^!ToolBar New Document
^!InsertCode ^$StrUUEncode("^%Text%")$
H="UUDecode text"
;Converts the UUEncoded text in the current document to its native format and saves it to a new document
^!SetCode %Text%=^$GetText$
^!ToolBar New Document
^!InsertCode ^$StrUUDecode("^%Text%")$
H=";"
H=";Encrypt/Decrypt"
This section offers Clips that let you encrypt and decrypt data.
H="Create password"
^!Info [L]Password:^p^$StrRandom(^?[How long should the password be?=10];^?[(T=C)What type of characters can it have?=_Alphanumerical (mixed case)^=A..Za..z0..9|Alphanumerical (uppercase)^=A..Z0..9|Alphanumerical (lowercase)^=a..z0..9|Alphabetical (mixed case)^=A..Za..z|Alphabetical (uppercase)^=A..Z|Alphabetical (lowercase)^=a..z|Hexadecimal^=A..F0..9|Numerical^=0..9])$
H="ROT13 selection"
;Performs a ROT13 operation on the current document text. If no text is selected, then the whole text is converted.
^!If ^$GetSelSize$ = 0 ^!ToolBar Select All
^!InsertCode ^$StrRot13("^$GetSelection$")$
H="Encrypt file"
;Encrypts the data in the chosen file and saves the result to a new file with the extension .npw
^!FileScramble "^?[(T=O)File to Encrypt]" "^?[(T=S;F="Encrypted files (*.npw)|*.npw")Save as (leave blank for default name)]" "^?[Encryption key (leave blank for default key)]"
^!IfError ShowError
^!Prompt Encryption successful
^!Goto End
:ShowError
^!Prompt An error has occured during the encryption process
H="Decrypt file"
;Decrypts the data in the chosen file and saves the result to a new file with its original name
^!FileScramble "^?[(T=O;F="Encrypted files (*.npw)|*.npw")File to Decrypt]" "^?[(T=S)Save as (leave blank for default name)]" "^?[Encryption key (leave blank for default key)]"
^!IfError ShowError
^!Prompt Decryption successful
^!Goto End
:ShowError
^!Prompt An error has occured during the decryption process
H="Encrypt selection"
;Encrypts the selected text in the current document and pastes the result over the selection
^!If ^$GetSelSize$ = 0 NoText
^!Set %Key%=^?{Encryption key (leave blank for default key)}
^!SaveRegValue HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Default HTML Editor\shell\edit=Notepad.exe
^!IfError ShowError
^!Prompt "View Source Editor", "Default HTML Editor", and "Browser Open-with-List" shortcuts for Internet Explorer have been restored to Windows Notepad
^!Goto End
:ShowError
^!Prompt Error creating registry key
H=";"
H=";Fookes Software links"
This section offers Clips that launch your default web browser and connect to the chosen site. Just double click on the Clip to open the web page.
H="Fookes Software"
^!URL http://www.fookes.com/
H="NoteTab Homepage"
^!URL http://www.notetab.com/
H="Clipbook Repository"
^!URL http://www.notetab.com/libraries.htm
H=";"
H=";________________"
H="_FillLibraryList"
;Clear variable in case it has been used previously
^!ClearVariable %LibraryList%
;Retrieve first library name that matches specified search criteria
;Append library name without path and extension to variable. Name is preceded with a space in case it starts with a special character. This space will have to be removed later
